home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / dinbrief.sty < prev    next >
Text File  |  1995-11-25  |  16KB  |  409 lines
  1. % dinbrief.sty  vom 4. April 1990; von Rainer Sengerling (Inst. f. Theor.
  2. % u. Angew. Physik, Uni Stuttgart) aus letter.sty 21 Jul 85  entwickelt
  3. % fuer vordrucklose Briefe im A4-Format, entsprechend  den DIN-Normen
  4. % 5008 (von 1986), 2107, 2142 und 676
  5. %
  6. % Kontaktadresse: Wolfgang Schwarz
  7. %                 Inst. f. Theoret. u.
  8. %                 Angewandte Physik
  9. %                 Uni Stuttgart
  10. %                 BLACKY@DS0ITA51   (eine Null, kein Oh)
  11. \typeout{Document Style 'dinbrief' von R. Sengerling, 4. 4. 1990}
  12. \def\@ptsize{0} \@namedef{ds@11pt}{\def\@ptsize{1}}
  13. \@namedef{ds@12pt}{\def\@ptsize{2}}
  14. \@namedef{ds@norm}{\def\@ptsize{3}}
  15. \@twosidefalse
  16. \def\ds@draft{\overfullrule 5pt}
  17. \@options
  18. %Option fuer deutsche Version (Datum)
  19. \newif\if@german\@germanfalse
  20. \def\ds@german{\@germantrue}
  21. \@options
  22. \lineskip 1pt \normallineskip 1pt
  23. \def\baselinestretch{1}
  24. %Grundzeilenabstand 1/6in = 4,23mm (DIN 2107,2142)
  25. \newdimen\GZA
  26. \GZA=1in
  27. \divide\GZA by 6
  28. \ifcase \@ptsize\relax
  29. \def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt
  30. \abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
  31. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
  32. \def\small{\@setsize\small{11pt}\ixpt\@ixpt
  33. \abovedisplayskip 8.5pt plus 3pt minus 4pt\belowdisplayskip \abovedisplayskip
  34. \abovedisplayshortskip \z@ plus2pt\belowdisplayshortskip 4pt plus2pt minus 2pt}
  35. \def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
  36. \abovedisplayskip 6pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
  37. \abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 3pt plus 1pt minus
  38. 2pt}
  39. \def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
  40. \def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
  41. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  42. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  43. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  44. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  45. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  46. \or
  47. \def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
  48. \abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
  49. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
  50. minus3pt}
  51. \def\small{\@setsize\small{12pt}\xpt\@xpt
  52. \abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
  53. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
  54. \def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
  55. \abovedisplayskip 8pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
  56. \abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 4pt plus 2pt minus
  57. 2pt}
  58. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  59. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  60. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  61. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  62. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  63. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  64. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  65. \or
  66. \def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
  67. \abovedisplayskip 12pt plus3pt minus7pt\belowdisplayskip \abovedisplayskip
  68. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
  69. minus3pt}
  70. \def\small{\@setsize\small{13.6pt}\xipt\@xipt
  71. \abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
  72. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
  73. minus3pt}
  74. \def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
  75. \abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
  76. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
  77. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  78. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  79. \def\large{\@setsize\large{18pt}\xivpt\@xivpt}
  80. \def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
  81. \def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
  82. \def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
  83. \let\Huge=\huge
  84. \or
  85. % Norm-Option (DIN 2107, 2142)
  86. \def\@normalsize{\@setsize\normalsize{1\GZA}\xipt\@xipt
  87. \abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
  88. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
  89. minus3pt}
  90. \def\small{\@setsize\small{11pt}\xpt\@xpt
  91. \abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
  92. \abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
  93. \def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
  94. \abovedisplayskip 8pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
  95. \abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 4pt plus 2pt minus
  96. 2pt}
  97. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  98. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  99. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  100. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  101. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  102. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  103. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  104. \fi
  105. \normalsize
  106. \long\def\Einrueckung#1{\par\begin{tabular}{@{\hspace{1in}}p{5in}@{}}#1
  107.  \end{tabular}\par}
  108. \def\Absender#1{\def\fromaddress{#1}}
  109. \def\fromaddress{}
  110. \newif\iffenster\fensterfalse
  111. \def\Fenster{\fenstertrue}
  112. \def\Retouradresse#1{\def\returnaddress{#1}}
  113. \def\returnaddress{}
  114. \def\Postvermerk#1{\def\Vermerk{#1}}
  115. \def\Vermerk{}
  116. \def\Betreff#1{\def\betreff{\ignorespaces #1}}
  117. \def\betreff{}
  118. \def\Datum#1{\def\date{#1}}
  119. \def\date{\if@german\heute\else\today\fi}
  120. \newif\ifanlagenr\anlagenrfalse
  121. \def\anlagenrechts{\anlagenrtrue}
  122. \def\Anlagen#1{\def\Anlagentext{#1}}
  123. \def\Anlagentext{}
  124. \def\Verteiler#1{\def\Verteilertext{#1}}
  125. \def\Verteilertext{}
  126. %Parameter fuer Feineinstellung des Druckers
  127. \newdimen\feinx
  128. \newdimen\feiny
  129. \feinx=0.55mm
  130. \feiny=-1.3mm
  131. \newcount\sparzahl
  132. \sparzahl=0
  133. \def\spare#1{\sparzahl=#1}
  134. \newdimen\Etiketthoehe
  135. \Etiketthoehe=4.1cm
  136. \newif\ifretour\retourfalse
  137. \def\Retourlabel{\retourtrue}
  138. \oddsidemargin 0pt \evensidemargin 0pt \marginparwidth 90pt \marginparsep
  139. 11pt \marginparpush 5pt
  140. \topmargin -2\GZA \headheight 1\GZA \headsep 2\GZA \footheight 12pt
  141. \footskip 25pt \topskip 1\GZA
  142. \textheight 55\GZA \textwidth 6in \columnsep 10pt \columnseprule 0pt
  143. % Anpassung an Druckereinstellung
  144. \advance\topmargin by \feiny
  145. \advance\oddsidemargin by \feinx
  146. \advance\evensidemargin by \feinx
  147. \raggedbottom
  148. \footnotesep 12pt \skip\footins 10pt plus 2pt minus 4pt
  149. \floatsep 12pt plus 2pt minus 2pt
  150. \textfloatsep 20pt plus 2pt minus 4pt
  151. \intextsep 12pt plus 2pt minus 2pt
  152. \dblfloatsep 12pt plus 2pt minus 2pt
  153. \dbltextfloatsep 20pt plus 2pt minus 4pt
  154. \@maxsep 20pt
  155. \@dblmaxsep 20pt
  156. \@fptop 0pt plus 1fil
  157. \@fpsep 8pt plus 2fil
  158. \@fpbot 0pt plus 1fil
  159. \@dblfptop 0pt plus 1fil
  160. \@dblfpsep 8pt plus 2fil
  161. \@dblfpbot 0pt plus 1fil
  162. %Neudefinition des opening-Befehls
  163. \def\opening#1{\thispagestyle{empty}
  164.  \unitlength1mm
  165.  \begin{picture}(0,0)
  166.  %Absenderadresse und Datum
  167.  \put(0,12.69){%
  168.  \parbox[t]{1\textwidth}{\parbox[t]{3in}{\fromaddressI\fromaddressII}
  169.  \hfill \date }}
  170.  %Fenster
  171.  \iffenster\fenst\fi
  172.  \put(0,-21.15){\parbox[t]{3in}{\Vermerk \mbox{}\par\toaddress}}
  173.  \end{picture}
  174.  %Anpassung fuer Betreff
  175.  \mbox{}\par
  176.  \vspace{-1\parskip}
  177.  \vspace{15\GZA}
  178.  %Anpassung wegen der verschiedenen Grundzeilenabstaende
  179.  \ifcase\@ptsize\vspace{0.045pt}\or\vspace{-1.555pt}\or\vspace{-2.955pt}\or\fi
  180.  \betreff \mbox{} \par
  181.  \vspace{-1\parskip}
  182.  \vspace{2\GZA}
  183.  %Anpassung wegen der verschiedenen Grundzeilenabstaende
  184.  \ifcase\@ptsize\vspace{0.045pt}\or\vspace{-1.555pt}\or\vspace{-2.955pt}\or\fi
  185.  \def\Anrede{#1}
  186.  \ifx\Anrede\empty \else #1\par\fi\nobreak}
  187. \def\fenst{%
  188.  %Faltmarken
  189.  \put(-19,-71.16){\line(1,0){3}}
  190.  \put(-19,-176.16){\line(1,0){3}}
  191.  %bei der gegenwaertigen Druckereinstellung wird die obere
  192.  %Faltmarke besser nicht ausgegeben
  193.  %\put(122.6,29){\line(0,1){3}}
  194.  %Strich unter Returnadresse
  195.  \put(-5.4,-16.16){\line(1,0){85}}
  196.  %Setzen der Returnadresse
  197.  \put(-5.4,-16.16){\makebox(85,4){\viipt\returnaddress}}}
  198. %Neudefinition des closing-Befehls
  199. \long\def\closing#1{\par\nobreak
  200.  \stopbreaks
  201.  \noindent
  202.  \parbox[t]{3.5in}{\raggedright
  203.  \ignorespaces #1 \mbox{} \\[4\GZA]
  204.  \ifx\@empty\fromsig
  205.  \relax
  206.  \else \fromsig \fi\strut}
  207.  \ifanlagenr\hfill \parbox[t]{2in}{\An}
  208.  \else \par\An \fi}
  209. \def\An{\ifx\Anlagentext\empty\else\Anlagentext
  210.  \par \fi \ifx\Verteilertext\empty\else\Verteilertext\fi}
  211. \def\ps{\par\startbreaks}
  212. \def\stopletter{}
  213. \newcount\labelcount
  214. %Neudefinition des startlabel-Befehls
  215. \def\startlabels{\labelcount=0 \baselineskip=0pt \lineskip=0pt
  216. \setcounter{page}{91}
  217. \pagestyle{empty}
  218. \topmargin 2.23cm
  219. \topskip 0pt
  220. \headheight 0pt
  221. \headsep 0pt
  222. \oddsidemargin -2cm
  223. \evensidemargin -2cm
  224. %Druckeranpassung
  225. \advance\topmargin by \feiny
  226. \advance\oddsidemargin by \feinx
  227. \advance\evensidemargin by \feinx
  228. \textheight=6\Etiketthoehe
  229. \advance\textheight by .05cm
  230. \@colht\textheight \@colroom\textheight \vsize\textheight
  231. \textwidth 19.8cm
  232. \columnsep 1.2cm
  233. \xipt
  234. \baselineskip=0pt
  235. \lineskip=0pt
  236. \boxmaxdepth=0pt
  237. \twocolumn
  238. \relax
  239. \ifnum\sparzahl>0
  240.  \ifnum\sparzahl>5\mbox{}\newpage\advance\sparzahl by -6\fi
  241.  \vspace*{\sparzahl\Etiketthoehe}\par\fi}
  242. \long\def\mlabel#1#2#3{\def\test{#1}
  243.  \ifx\test\empty \parskip=1\GZA\else \parskip=2mm  \fi
  244.  \baselineskip1\GZA
  245.  \setbox0\vbox{\ifx\test\empty\else
  246.  \underline{\rule[-0.9mm]{0pt}{3.2mm}\makebox[9.3cm]{\viipt \rm #1}}\\ \fi
  247.  \hspace*{0.54cm}
  248.  \parbox[b]{8.7cm}{\ignorespaces
  249.  #2\rule{0pt}{10pt} \par #3 }}
  250.  \vbox to \Etiketthoehe{\box0\vss }}
  251. \long\def\retourlabel#1{\setbox0\vbox{\baselineskip1\GZA\parskip=1\GZA
  252.  \hspace*{0.2cm}
  253.  \parbox[b]{8.7cm}{\ignorespaces \rule{0pt}{18pt}#1}}
  254.  \vbox to \Etiketthoehe{\box0\vss }}
  255. %Neudefinition des letter-Befehls
  256. \long\def\letter#1{\newpage
  257.  \c@page\@ne
  258.  \interlinepenalty=200 \def\toaddress{#1}}
  259. %Neudefinition des endletter-Befehls
  260. \def\endletter{\stopletter\@@par\pagebreak\@@par
  261.  %Unterdrueckung der Adressetikettenausgabe bei Fenster-Option
  262.  \iffenster\@fileswfalse\fi
  263.  \if@filesw
  264.  \begingroup
  265.  \def\protect{\string}
  266.  \let\\=\relax
  267.  \def\protect##1{\string##1\space}
  268.  \ifretour
  269.  \immediate\write\@auxout{\string\mlabel{\empty}{\Vermerk}{\toaddress}}
  270.  \immediate\write\@auxout{\string\retourlabel{\fromaddressI}}
  271.  \else
  272.  \immediate\write\@auxout{\string\mlabel{\returnaddress}{\Vermerk}%
  273.  {\toaddress}}\fi
  274.  \endgroup
  275.  \fi}
  276. \def\stopbreaks{\interlinepenalty \@M
  277.  \def\par{\@@par\nobreak}\let\\=\@nobreakcr
  278.  \let\vspace\@nobreakvspace}
  279. \def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}
  280. \def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else
  281.  \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}
  282. \def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}
  283. \def\startbreaks{\let\\=\@normalcr
  284.  \interlinepenalty 200\def\par{\@@par\penalty 200}}
  285. \def\signature#1{\def\fromsig{#1}}
  286. \def\fromsig{}
  287. %Neudefinition des Absenderbefehls
  288. \long\def\Absender#1{\@processto{#1}}
  289. \def\fromaddressI{}\def\fromaddressII{}
  290. %Aufspaltung der Absenderadresse mit Hilfe der modifizierten
  291. %Routinen \@processto, \@xproc und \@yproc
  292. \long\def\@processto#1{\@xproc #1::@@@\ifx\fromaddressII\@empty
  293. \else \@yproc #1@@@\fi}
  294. \long\def\@xproc #1::#2@@@{\def\fromaddressI{#1}\def\fromaddressII{#2}}
  295. \long\def\@yproc #1::#2@@@{\def\fromaddressII{#2}}
  296. \def\document{\endgroup
  297.  \@colht\textheight \@colroom\textheight \vsize\textheight
  298.  \columnwidth\textwidth \@clubpenalty\clubpenalty
  299.  \if@twocolumn \advance\columnwidth -\columnsep
  300.  \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue
  301.  \fi
  302.  \hsize\columnwidth \linewidth\hsize
  303.  \begingroup\@floatplacement\@dblfloatplacement\endgroup
  304.  \if@filesw \immediate\openout\@mainaux=\jobname.aux
  305.  \immediate\write\@mainaux{\string\startlabels\string\@startlabels}\fi
  306.  \def\do##1{\let ##1\@notprerr}
  307.  \@preamblecmds
  308.  \let\do\noexpand
  309.  \@normalsize\everypar{}}
  310. \def\enddocument{\@checkend{document}\newpage\begingroup
  311. \if@filesw \immediate\closeout\@mainaux
  312. \makeatletter\input \jobname.aux\clearpage
  313. \fi\endgroup\deadcycles\z@\@@end}
  314. \def\makelabels{\@fileswtrue}
  315. \def\@startlabels{}
  316. \def\ps@empty{\def\@oddhead{}\def\@oddfoot{}\def\@evenhead{}\def\@evenfoot{}}
  317. %Neudefinition des plain-Stiles
  318. \def\ps@plain{\def\@oddfoot{}\def\@oddhead{\rm\hspace{3in}
  319.  -- \thepage\ --\hfil}
  320.  \def\@evenfoot{}\let\@evenhead\@oddhead}
  321. \ifnum\@ptsize=3\parskip=1\baselineskip\else \parskip=0.7em\fi
  322. \parindent 0pt \topsep .4em \partopsep 0pt \itemsep .4em
  323. \@lowpenalty 51 \@medpenalty 151 \@highpenalty 301
  324. \@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
  325. -\@lowpenalty
  326. \leftmargini 2.5em
  327. \leftmarginii 2.2em \leftmarginiii 1.87em \leftmarginiv 1.7em \leftmarginv 1em
  328. \leftmarginvi 1em
  329. \leftmargin\leftmargini
  330. \labelwidth\leftmargini\advance\labelwidth-\labelsep
  331. \labelsep 5pt
  332. \parsep 0pt
  333. \let\@listi\relax
  334. \def\@listii{\leftmargin\leftmarginii
  335.  \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
  336. \def\@listiii{\leftmargin\leftmarginiii
  337.  \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
  338.  \topsep .2em
  339.  \itemsep \topsep}
  340. \def\@listiv{\leftmargin\leftmarginiv
  341.  \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}
  342. \def\@listv{\leftmargin\leftmarginv
  343.  \labelwidth\leftmarginv\advance\labelwidth-\labelsep}
  344. \def\@listvi{\leftmargin\leftmarginvi
  345.  \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}
  346. \def\labelenumi{\arabic{enumi}.}
  347. \def\theenumi{\arabic{enumi}}
  348. \def\labelenumii{(\alph{enumii})}
  349. \def\theenumii{\alph{enumii}}
  350. \def\p@enumii{\theenumi}
  351. \def\labelenumiii{\roman{enumiii}.}
  352. \def\theenumiii{\roman{enumiii}}
  353. \def\p@enumiii{\theenumi(\theenumii)}
  354. \def\labelenumiv{\Alph{enumiv}.}
  355. \def\theenumiv{\Alph{enumiv}}
  356. \def\p@enumiv{\p@enumiii\theenumiii}
  357. \def\labelitemi{$\bullet$}
  358. \def\labelitemii{\bf --}
  359. \def\labelitemiii{$\ast$}
  360. \def\labelitemiv{$\cdot$}
  361. \def\verse{\let\\=\@centercr
  362.  \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent
  363.  \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}
  364. \let\endverse\endlist
  365. \def\quotation{\list{}{\listparindent 1.5em
  366.  \itemindent\listparindent
  367.  \rightmargin\leftmargin}\item[]}
  368. \let\endquotation=\endlist
  369. \def\quote{\list{}{\rightmargin\leftmargin}\item[]}
  370. \let\endquote=\endlist
  371. \def\descriptionlabel#1{\hfil \it #1}
  372. \def\description{\list{}{\leftmargin\descriptionmargin
  373.  \labelwidth\leftmargin \advance\labelwidth -\labelsep
  374.  \let\makelabel\descriptionlabel}}
  375. \let\enddescription\endlist
  376. \newdimen\descriptionmargin
  377. \descriptionmargin=3em
  378. \def\theequation{\arabic{equation}}
  379. \arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt
  380. \tabbingsep \labelsep
  381. \skip\@mpfootins = \skip\footins
  382. \fboxsep = 3pt \fboxrule = .4pt
  383. \def\footnoterule{\kern-1\p@
  384.  \hrule width .4\columnwidth
  385.  \kern .6\p@}
  386. \long\def\@makefntext#1{\noindent \hangindent 5pt\hbox
  387.  to 5pt{\hss $^{\@thefnmark}$}#1}
  388. \c@topnumber=2
  389. \def\topfraction{.7}
  390. \c@bottomnumber=1
  391. \def\bottomfraction{.3}
  392. \c@totalnumber=3
  393. \def\textfraction{.2}
  394. \def\floatpagefraction{.5}
  395. \c@dbltopnumber= 2
  396. \def\dbltopfraction{.7}
  397. \def\dblfloatpagefraction{.5}
  398. \def\today{\number\day.\ \ifcase\month\or
  399.  January\or February\or March\or April\or May\or June\or
  400.  July\or August\or September\or October\or November\or December\fi
  401.  \space\number\year}
  402. \def\heute{\number\day.\ \ifcase\month\or
  403.  Januar\or Februar\or M\"arz\or April\or Mai\or Juni\or
  404.  Juli\or August\or September\or Oktober\or November\or Dezember\fi
  405.  \space\number\year}
  406. \smallskipamount=.5\parskip \medskipamount=\parskip
  407. \bigskipamount=2\parskip
  408. \ps@plain \pagenumbering{arabic} \onecolumn \@fileswfalse
  409.